-- background: 3411 from stack: in.6
-- bmap block id: 5345
-- flags: 4000
-- background id: 0
-- name: 
----- HyperTalk script -----
on opencard
  push recent card
end opencard

on turnOn buttonNo
  lock screen
  hide bg fld "theResult"
  repeat with i=1 to (the number of cd btns -1)
    hide cd btn i
  end repeat
  repeat with counter = 1 to 4
    if buttonNo = counter then
      set the hilite of bg btn counter to TRUE
      show bg fld counter
    else
      set the hilite of bg btn counter to FALSE
      hide bg fld counter
    end if
  end repeat
  set scroll of bg fld buttonNo to 0
  show bg btn "Close Information"
  unlock screen with visual effect dissolve
end turnOn

on closeall
  set cursor to watch
  lock screen
  repeat with x = 1 to 4
    hide bg fld x
    set hilite of bg btn x to FALSE
  end repeat
  hide bg btn "Close Information"
  put empty into bg fld "theResult"
  show bg fld "theResult"
  unlock screen with visual effect dissolve
end closeall

on closecard
  closeall
  put empty into bg fld "theResult"
  repeat with i=1 to (the number of cd btns -1)
    hide cd btn i
  end repeat
end closecard

on showButtons
  repeat with i=1 to the number of cd btns
    show cd btn i
  end repeat
end showButtons

on openBackground
  repeat with i=1 to the number of bg flds
    set the lockText of bg fld i to TRUE
  end repeat
end openBackground



-- part 9 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=17 top=120 right=142 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: XCMD Parameters
----- HyperTalk script -----
on mouseUp
  if the visible of bg fld (the number of me) then
    closeall
  else
    put the number of me into displayinfo
    turnOn displayinfo
  end if
end mouseUp



-- part 10 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=17 top=150 right=172 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Special Notes
----- HyperTalk script -----
on mouseUp
  if the visible of bg fld (the number of me) then
    closeall
  else
    put the number of me into displayinfo
    turnOn displayinfo
  end if
end mouseUp



-- part 11 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=17 top=90 right=112 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Where to use it!
----- HyperTalk script -----
on mouseUp
  if the visible of bg fld (the number of me) then
    closeall
  else
    put the number of me into displayinfo
    turnOn displayinfo
  end if
end mouseUp



-- part 12 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=17 top=180 right=202 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Examples of this Type
----- HyperTalk script -----
on mouseUp
  closeall
  showButtons
end mouseUp



-- part 14 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=17 top=270 right=292 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Use ResEdit now...
----- HyperTalk script -----
on mouseUp
  closeall
  visual effect dissolve
  open "ResEdit"
end mouseUp



-- part 15 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=203 top=56 right=272 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
on mouseDown
  set the lockText of me to false
  click at the clickLoc
  click at the clickLoc
  put selection into theSelect
  if theSelect = "Click here to see it now" then
    go cd "Type 7 XCMD"
    edit script of cd btn "ListDialog 2"
  else if theSelect = "Click here to go there now" then
    go cd "Type 5 XCMD"
    send mouseUp to bg btn ID 9
  else if theSelect = "Click here for a demo" then
    If ColorOn() then
      SplashDialog 6747,3,TRUE
    else SplashDialog 5747,3,TRUE
  else click at loc of target
  set the lockText of me to true
end mouseDown



-- part 17 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=203 top=56 right=272 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
on mouseDown
  set the lockText of me to false
  click at the clickLoc
  click at the clickLoc
  put selection into theSelect
  if theSelect = "Click here to see" then
    lock screen
    show cd pict
    show cd btn "OK"
    unlock screen with zoom out
  else if theSelect = "Click here for list" then
    lock screen
    show cd fld "theList"
    unlock screen with zoom out
  else if theSelect = "Show Me" then
    lock screen
    unlock screen with zoom out
    ShowDialog 5,5005,51
  else if theSelect = "Click here to go there now" then
    go cd "PICT Maker 2"
    edit script of cd btn "Make PICT Resource"
  else if theSelect = "Click here and go there now" then
    go cd "Special Dialogs"
    send mouseUp to bg btn "Special Notes"
    find "All PICT Dialogs"
  else if theSelect = "Click here for a demo" then
    If ColorOn() then
      CreditsDialog 4747,1040,1041
    else CreditsDialog 4747,1042,1041
  else if theSelect = "Click here to go directly there" then
    find string "Using ResEdit to Make ShowDialog Dialogs"
  else if theSelect = "Click here to print these instructions" then
    put me into container
    put offset("these instructions",container) into deleteIt
    delete char 1 to (deleteIt + 19) of container
    put "Using ResEdit to Make ShowDialog Dialogs" into prompt
    PrintDoc prompt,container,prompt,times,12
  else click at loc of target
  set the lockText of me to true
end mouseDown



-- part 18 (field)
-- low flags: 80
-- high flags: 2007
-- rect: left=203 top=56 right=272 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
on mouseDown
  set the lockText of me to false
  click at the clickLoc
  click at the clickLoc
  put selection into theSelect
  if theSelect = "Click here to go there now" then
    go cd "PICT Maker 2"
    edit script of cd btn "Make PICT Resource"
  else if theSelect = "Click here for a demo" then
    click at loc of target
    TextDialog 5748,geneva,10,"2000,2001,2002",1
  else click at loc of target
  set the lockText of me to true
end mouseDown



-- part 31 (field)
-- low flags: 81
-- high flags: 2007
-- rect: left=203 top=56 right=272 bottom=500
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: 
----- HyperTalk script -----
on mouseDown
  set the lockText of me to false
  click at the clickLoc
  click at the clickLoc
  put selection into theSelect
  if theSelect = "Click here to go there now" then
    go cd "SD Main Menu"
    edit script of cd btn "Who did this?"
  else click at loc of target
  set the lockText of me to true
end mouseDown



-- part 21 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=86 top=7 right=42 bottom=441
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 151
-- text size: 24
-- style flags: 0
-- line height: 32
-- part name: Title


-- part 22 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=56 top=313 right=335 bottom=145
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Main Menu
----- HyperTalk script -----
on mouseUp
  set the cursor to 4
  visual dissolve fast
  go to card "SD Main Menu"
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=152 top=313 right=335 bottom=216
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  doHelp
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=223 top=313 right=335 bottom=287
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual barn door close to black
  visual effect iris open to inverse
  visual effect dissolve
  go home
end mouseUp



-- part 25 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=294 top=313 right=335 bottom=358
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Quit
----- HyperTalk script -----
on mouseUp
  domenu "Quit HyperCard"
end mouseUp



-- part 26 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=366 top=313 right=335 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: <-- Go back
----- HyperTalk script -----
on mouseUp
  visual effect dissolve fast
  pop card
end mouseUp



-- part 27 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=5 top=307 right=341 bottom=45
-- title width / last selected line: 0
-- icon id / first selected line: 902 / 902
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
  left
end mouseUp



-- part 28 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=467 top=307 right=341 bottom=507
-- title width / last selected line: 0
-- icon id / first selected line: 26425 / 26425
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  right
end mouseUp



-- part 32 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=220 top=237 right=303 bottom=480
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: theResult


-- part 29 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=17 top=210 right=232 bottom=194
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Print Documentation
----- HyperTalk script -----
on mouseUp
  printIt
end mouseUp



-- part 30 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=462 top=10 right=26 bottom=498
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 3
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: 


-- part 16 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=283 top=274 right=295 bottom=434
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Close Information
----- HyperTalk script -----
on mouseUp
  closeall
end mouseUp